home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / pickup / opening.bas < prev    next >
BASIC Source File  |  1991-10-18  |  18KB  |  389 lines
  1. 1 KEY(1) ON:ON KEY(1) GOSUB 65010
  2. 10 '    -----------------------------------------------------------
  3. 20 '   ---  ＫＮＩＧＨＴ II     　　For F-BASIC 386 V1.1L20/L21------
  4. 30 '  ----　- Opening -          　　　                        -----
  5. 40 ' -----                                                     ----
  6. 50 '------                  作・編曲・Programed／ＳＫＥＭＡＲＯ---
  7. 60 '  -----------------------------------------------------------
  8. 61 LOAD@"SKE_FM.FMB":LOAD@"PDRUMS.PMB"
  9. 62 GOSUB *めさーじゅ表示:BGM 1:FOR I=0 TO 13:PART I,I:NEXT
  10. 63 T$="U0%CQ8":PLAY T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$,T$
  11. 70 DIM S$(11,35)
  12. 80 PLAY OFF:GOTO *PLAY_DATA
  13. 90 *PLAY
  14. 100 FOR I=0 TO 35
  15. 110     PLAY S$(0,I),S$(1,I),S$(2,I),S$(3,I),S$(4,I),S$(5,I)                            ,S$(6,I),S$(7,I),S$(8,I),S$(9,I),S$(10,I),S$(11,I)
  16. 120 NEXT
  17. 130 GOTO 65000
  18. 140 '-----------------------------------------------------
  19. 150 *PLAY_DATA
  20. 160 S$(0,0)="T70@41O5L8V 4U45 %C"
  21. 170 S$(1,0)="   @42O3L8V11U0  %C"
  22. 180 S$(2,0)="   @41O3L8V 0U25 %C"
  23. 190 S$(3,0)="   @41O3L8V 0U-25%C"
  24. 200 S$(4,0)="   @41O2L8V 1U0  %C"
  25. 210 S$(5,0)="   @41O4L8V 8U-45%C"
  26. 220 S$(2,1)="R4]G4]A4]B2]G4]A4]B4&"
  27. 230 S$(3,1)="R8]D4]D4]D4]D4]D4]D4D4D8"
  28. 240 S$(4,1)="]]]G1]]]G1"
  29. 250 S$(0,2)="R1R2.RD"
  30. 260 S$(2,2)="B4]G4]A4]B2G4A4B4&"
  31. 270 S$(3,2)="D8]D4]D4D4D4D4D4D4D8&"
  32. 280 S$(4,2)="]]G1]]G1"
  33. 290 S$(5,2)=S$(0,2)
  34. 300 S$(0,3)="DCC<B16B16&B1RAGAG1&G2RG]AB>"
  35. 310 S$(1,3)="R2RDGBAG4>D4C<B>C<B2RDG>DC<B4B4D>CD<"
  36. 320 S$(2,3)="B4(G4A4B2)3G4A4B4&"
  37. 330 S$(3,3)="D8(D4D4D4D4)3D4D4D4D8&"
  38. 340 S$(4,3)="G1G1G1G1"
  39. 350 S$(5,3)=S$(0,3)
  40. 360 S$(0,4)="C4.<E16E16&E1RGAGAB16B16&B2.&B2RB>]CD"
  41. 370 S$(1,4)=">E4.<A16A16&A1RDDDDG16G16&G4.DG>DC4.<B4.AB "
  42. 380 S$(2,4)="B4(A4B4>C2<)2G4A4B2G4A4B4&"
  43. 390 S$(3,4)="D8(E4E4)4(D4D4)3D4D8&"
  44. 400 S$(4,4)="A1A1G1G1"
  45. 410 S$(5,4)=S$(0,4)
  46. 420 S$(0,5)=" E2. C EGG-G-EE DC<A>C<B1.BAG16G16&"
  47. 430 S$(1,5)=">C2.<G>CED D CC<BAD A G&G2 AG&G2.RD"
  48. 440 S$(2,5)="B4>C4E4C2E4G4E2<G4A4B2G4A4B4&"
  49. 450 S$(3,5)="D8(G4G4)4(D4D4)3D4D8&"
  50. 460 S$(4,5)=">C1C1<G1G1"
  51. 470 S$(5,5)=S$(0,5)
  52. 480 S$(0,6)="G1&G2RBAG16G16&G1&G2.RG16G16&"
  53. 490 S$(1,6)="G1B2.RDG1&G2.RG16G16&"
  54. 500 S$(2,6)="B4(G4A4B2)3G4A4B4&"
  55. 510 S$(3,6)="D8(D4D4D4D4)3D4D4D4D8&"
  56. 520 S$(4,6)="G1G1G1G1"
  57. 530 S$(5,6)=S$(0,6)
  58. 540 S$(0,7)="G1&G4<<[B1&B4&B16."
  59. 550 S$(1,7)="G1&G4.@41V2A1&A8V11"
  60. 560 S$(2,7)="B4G4A4B4.&B8&B16. [G1&G8"
  61. 570 S$(3,7)="D8D4D4D4D8&D4&D32. [D1"
  62. 580 S$(4,7)="G1]G1&G4&G32"
  63. 590 S$(5,7)=S$(0,7)
  64. 600 '-----------------------------------------------------
  65. 610 S$( 0,8)="T76@43O4L 8V 9%C"
  66. 620 S$( 1,8)="   @43O4L 8V 9%C"
  67. 630 S$( 2,8)="   @43O4L 8V 9%C"
  68. 640 S$( 3,8)="   @43O2L16V10%CU 40"
  69. 650 S$( 4,8)="   @43O2L16V 7%CU-40"
  70. 660 S$( 5,8)="   @44O2L 8V13%C"
  71. 670 S$( 6,8)="   @ 3O4L 8V15%R5"
  72. 680 S$( 7,8)="   @ 2O4L 8V15%L5"
  73. 690 S$( 8,8)="   @ 4O4L 8V 6%R5"
  74. 700 S$( 9,8)="   @ 6O4L 8   %L5"
  75. 710 S$(10,8)="   @ 7O4L 8   %R5"
  76. 720 S$( 0,9)="GRGRGRGRG-RG-RG-RG-R"
  77. 730 S$( 1,9)="E-RE-RE-RE-RE-RE-RE-RE-R"
  78. 740 S$( 2,9)="DCDCDCDCDCDCDCDC"
  79. 750 S$( 3,9)="O2(CDE-G>)4O2(CDE-G->)4"
  80. 760 S$( 4,9)="O2R(CDE-G>)4O2(CDE-G->)3CDE-"
  81. 770 S$( 5,9)="C1C1"
  82. 780 S$( 6,9)="CRRRRCRCCRRRRC16C16RR"
  83. 790 S$( 7,9)="(R2.G4)"
  84. 800 S$( 8,9)="(]]B[[B]]B[[B)4"
  85. 810 S$( 9,9)="(V6G[[G[[G[[G)4"
  86. 820 S$(10,9)="(V4C[[C[[C[[C)4"
  87. 830 FOR LOOP=0 TO 10
  88. 840   S$(LOOP,10)=S$(LOOP,9)
  89. 850 NEXT
  90. 860 S$( 4,10)="G-O2(CDE-G>)4O2(CDE-G->)3CDE-"
  91. 870 S$( 0,11)="  GRGRGRGRFRFRFRFR"
  92. 880 S$( 1,11)="  BRBRBRBRARARARAR"
  93. 890 S$( 2,11)="  (D<B>D<B>)4"
  94. 900 S$( 3,11)="  O2(B>DGB)4O2(B>DFA)4"
  95. 910 S$( 4,11)="G-O2(B>DGB)4O2(B>DFA)3B>DF"
  96. 920 S$( 5,11)="  D2.&DDD2&DD4."
  97. 930 S$( 6,11)=S$( 6,10)
  98. 940 S$( 7,11)=S$( 7,10)
  99. 950 S$( 8,11)=S$( 8,10)
  100. 960 S$( 9,11)=S$( 9,10)
  101. 970 S$(10,11)=S$(10,10)
  102. 980 S$( 0,12)="  GRGRGRGRARARA1."
  103. 990 S$( 1,12)="  RRERERERGRGRG-1."
  104. 1000 S$( 2,12)="  ECECC<A>C<A>D<A>D<A>D1."
  105. 1010 S$( 3,12)=" O3(CEG>C)2O2(A>CEG)2 GD<A>DGD<A>DG-1."
  106. 1020 S$( 4,12)="AO3(CEG>C)2O2(A>CEG)2 GD<A>DGD<A>DG-1&G-4.&G-16"
  107. 1030 S$( 5,12)="  C4.C<A4.AD2D1.&"
  108. 1040 S$( 6,12)="V15 CRRC CRRC CRCR[[(CR[[CR[[)4"
  109. 1050 S$( 7,12)="V15 R2.G4"
  110. 1060 S$( 8,12)=S$( 8,11)
  111. 1070 S$( 9,12)=S$( 9,11)
  112. 1080 S$(10,12)=S$(10,11)
  113. 1090 S$(5,13)="D1&D1&D1&D2"
  114. 1100 S$(6,13)="   V0((CCRR]])4)2"
  115. 1110 S$(8,13)="@10V1<<((GG4.)4)2>>"
  116. 1120 S$(9,13)="   V0<<((GG4.)4)2>>"
  117. 1130 '-----------------------------------------------------
  118. 1140 S$( 0,14)="T130@46O4L16V13%C"
  119. 1150 S$( 1,14)="    @47O3L16V11%C U 35"
  120. 1160 S$( 2,14)="    @47O3L16V 8%C U-35"
  121. 1170 S$( 3,14)="    @41O4L16V 8%C"
  122. 1180 S$( 4,14)="    @41O4L16V 8%C"
  123. 1190 S$( 5,14)="    @45O2L16V11%C"
  124. 1200 S$( 6,14)="    @ 3O4L16V15%R6    CCCC"
  125. 1210 S$( 7,14)="    @ 2O4L16V15%L5    @9<<C>>@2DDD"
  126. 1220 S$( 8,14)="    @ 4O4L16V13%L5    BBBB"
  127. 1230 S$( 9,14)="    @ 6O4L16V15%L2"
  128. 1240 S$(10,14)="    @14O4L16V10%C"
  129. 1250 S$(11,14)="    @14O2L16V12%C"
  130. 1260 S$( 0,15)="U-1500A&U-1200A&U-999A&U-699A&U-399A&U199A&U0AGFGFE[["
  131. 1270 S$( 3,15)="AAAAAA]]FFFGGG[["
  132. 1280 S$( 4,15)="FFFFFF]]DDDEEE[["
  133. 1290 S$( 5,15)="D>D<DD>D<D<B->B-<B->C>C<C"
  134. 1300 S$( 6,15)="CRCCRCRCRCCC"
  135. 1310 S$( 7,15)="C<@9%L8EE>@2%L5C<<@9%L3GG%R3DRD>>@2%L5C@9<<<%R8BB>>>@2%L5"
  136. 1320 S$( 8,15)="(B]]]B[[[B)4]]"
  137. 1330 S$( 9,15)="R4.C8.C8."
  138. 1340 S$(10,15)="R4.<B-8.>C8."
  139. 1350 S$(11,15)=S$(10,15)
  140. 1360 S$( 0,16)="D8.&D8<L32U800D&U1400D&U2000D&U2600D&U3200D&U3800D&U4600D4U0L16G4.FRERC8 D8.&D8L32U800D&U1400D&U2000D&U2600D&U3200D&U3800D&U4600D4U0L16G4.ERFR>C&U-1500C<"
  141. 1370 S$( 1,16)=" A4.>D8.F8.E4.C4.<A4.>D8.F8.E4.G4."
  142. 1380 S$( 2,16)="RA4.>D8.F8.E4.C4.<A4.>D8.F8.E4.G8.&G8&"
  143. 1390 S$( 3,16)="((D8.AGF)(C8.GFE))"
  144. 1400 S$( 4,16)="((<A8.>FED)(<G8.>EDC))"
  145. 1410 S$( 5,16)="((D8DD>D<D)(C8CC>C<C))"
  146. 1420 S$( 6,16)="((CRR)3CRC)4"
  147. 1430 S$( 7,16)="(RRRC4.C@3!0C@2R)4"
  148. 1440 S$( 8,16)="((BRBBRB)4)2"
  149. 1450 S$( 9,16)="C4."
  150. 1460 S$(10,16)="D4.R2.C8.C8.D4.R2.R8.C8."
  151. 1470 S$(11,16)=S$(10,16)
  152. 1480 S$( 0,17)="U-999B-&U-799B-&U-599B-&U-399B-&U-199B-&U99B-&U0B-8.AGFU-999G&U-799G&U-599G&U-399G&U-199G&U0GFEGFECU-999D&U-799D&U-599D&U-399D&U-199D&U99D&U0D4.&D4.&U199D&U399D&U699D&U299D&U0D&U-400D&U0"
  153. 1490 S$( 1,17)=" F4.A8.F8.G4.E8.G8.F2.&F2."
  154. 1500 S$( 2,17)="GF4.A8.F8.G4.E8.G8.F2.&F2&F8.&"
  155. 1510 S$( 3,17)="V5%R[[<(B->]D]F])(B-[F[D<[)>[[(C]E]G]>)(C]<G]E])V8%C(D8.AGF)3DDDEEE"
  156. 1520 S$( 4,17)="V5%L[[<(G]B-]>D])(F[D<[B-[)[[(G>]C]E])(G]E]C]<)V8>%C(<A8.>FED)3<B-B-B->CCC"
  157. 1530 S$( 5,17)="<(B-8B-B->B-<B-)2>(C8CC>C<C)(D8DD>D<D)4"
  158. 1540 S$( 6,17)="(CRR)3CRC RCCRCCCRCRCC ((CRR)3CRC)2"
  159. 1550 S$( 7,17)="RRRC4.C8.CRRCRRRRRCRR(RRRC4.C@3!0C@2R)2"
  160. 1560 S$( 8,17)="(BRBBRB)(B%R8B%CBB%L8B%CB)(BRBBRB)4"
  161. 1570 S$(10,17)="R2.R4.R8.C8.R2.R4.>DDDEEE<"
  162. 1580 S$(11,17)=S$(10,17)
  163. 1590 S$( 0,18)="D2.&D4.&D8.R8."
  164. 1600 S$( 1,18)=" <A4.>D8.A8.>D2."
  165. 1610 S$( 2,18)="FF4.D8.A8.>D2&D8.&"
  166. 1620 S$( 3,18)="R2.R4.FFFGGG"
  167. 1630 S$( 4,18)="R2.R4.DDDEEE"
  168. 1640 S$( 5,18)="]](D>D<DAGF)2DFDAFA>D<D>CEFE<[["
  169. 1650 S$( 6,18)="[(CRR)3CRC RCCRCCCRCRCC]"
  170. 1660 S$( 7,18)="[RRR@9<E<BGCRC>>@2CCCC<@9%L8EE>@2%L5C<<@9%L3GG%R3DRD>>@2%L5C@9<<<%R8BB>>>@2%L5]"
  171. 1670 S$( 8,18)="[(BRBBRB)(B%R8B%CBB%L8B%CB)]"
  172. 1680 S$(10,18)="R2.R4.>FFFGGG<"
  173. 1690 S$(11,18)=S$(10,18)
  174. 1700 S$(0,19)="U-900F&U-700F&U-500F&U-300F&U-100F&U0FE4.<A4.>D4.EDE4&E4.C<B->C&C8.C<C>E<E>>C8<"
  175. 1710 S$(1,19)="O4 <D4.A4.>D4.F4.C2.E4.&E8.EDC"
  176. 1720 S$(2,19)="O4R<D4.A4.>D4.F4.C2.E4.&E8.ED"
  177. 1730 S$(3,19)="(D8.A8AR8.AGF)  (C8.G8GR8.GFE)"
  178. 1740 S$(4,19)="(<A8.>F8FR8.FED)(<G8.>E8ER8.EDC)"
  179. 1750 S$(5,19)="(D8DD>D<D)4(C8CC>C<C)4"
  180. 1760 S$(6,19)="(CRRRRCCRRRRR)4"
  181. 1770 S$(7,19)="(RRRC8.RRRC8.)4"
  182. 1780 S$(8,19)="((BRBBRB)4)2"
  183. 1790 S$(0,20)="B-4.B-<B->>C<C>D8<B-4.B-<B->>C<C>D8E4.E<E>F<F>G8E4.L32U-500E&U-1000E&U-1500E&U-2000E&U-2500E&U-3000E&U-3800E&U-4500E&U-5200E&U-6000E&U-7000E&U-8000EU0<L16"
  184. 1800 S$(1,20)=" <B-4.F8.>D8.F2.<G4.>C8.E8.G2."
  185. 1810 S$(2,20)="C<B-4.F8.>D8.F2.<G4.>C8.E8.G2&G&"
  186. 1820 S$(3,20)="(<B-8.>F8FR8.FED)  (C8.G8GR8.GFE)"
  187. 1830 S$(4,20)="(<F8.>D8DR8.DC<B->)(<G8.>E8ER8.EDC)"
  188. 1840 S$(5,20)="<(B-8B-B->B-<B-)4>(C8CC>C<C)4"
  189. 1850 S$(6,20)=S$(6,19)
  190. 1860 S$(7,20)=S$(7,19)
  191. 1870 S$(8,20)=S$(8,19)
  192. 1880 S$(0,21)="D8.&D8U-1500A&U-1200A&U-900A&U-700A&U-500A&U-300A&U-100A&U0A4.G8F8E8C8.&C8U-1500G&U-1200G&U-900G&U-700G&U-500G&U-300G&U-100G&U0G4.E8F8G8"
  193. 1890 S$(1,21)="  L8.%R<DFAF>D<A>FD<EG>C<G>ECGE"
  194. 1900 S$(2,21)="G.L8.%L<DFAF>D<A>FD<EG>C<G>ECG"
  195. 1910 S$(3,21)=S$(3,19)
  196. 1920 S$(4,21)=S$(4,19)
  197. 1930 S$(5,21)=S$(5,19)
  198. 1940 S$(6,21)=S$(6,20)
  199. 1950 S$(7,21)=S$(7,20)
  200. 1960 S$(8,21)=S$(8,20)
  201. 1970 S$( 0,22)="O3B-4.&B-8.AGFG4.FEGFECL32D4.&U100D&U300D&U500D&U700D&U900D&U1200D&U1500D&U2500D&U3500D&U4500D&U5500U6500D&U7500D&U8000D2.L16U0"
  202. 1980 S$( 1,22)="L16 %C F4.D8.F8.E4.E8.G8.F2.&F2."
  203. 1990 S$( 2,22)="L16E%C F4.D8.F8.E4.E8.G8.F2.&F2&F8."
  204. 2000 S$( 3,22)="V5%R[[<(B->]D]F])(B-[F[D<[)>[[(C]E]G]>)(C]<G]E])V8%C(D8.AGF)3FFFGGG"
  205. 2010 S$( 4,22)="V5%L[[<(G]B-]>D])(F[D<[B-[)[[(G>]C]E])(G]E]C]<)V8>%C(<A8.>FED)3<B-B-B->CCC"
  206. 2020 S$( 5,22)="<(B-8B-B->B-<B-)2>(C8CC>C<C)2(D8DD>D<D)4"
  207. 2030 S$( 6,22)=S$(6,21)
  208. 2040 S$( 7,22)=S$(7,21)
  209. 2050 S$( 8,22)=S$(8,21)
  210. 2060 S$(10,22)="R2.R2.R2.R4.%R5DDD%L5EEE%C"
  211. 2070 S$(11,22)=S$(10,22)
  212. 2080 S$(0,23)="@48O4V12U35      (DEFGFE)4(CEFGFE)3CEFGE>C<"
  213. 2090 S$(1,23)="@48O4V 8U-35 R8(DEFGFE)4(CEFGFE)3CEFG"
  214. 2100 S$(2,23)="@42A2.&A2.A2.&A2."
  215. 2110 S$(3,23)="@42F2.&F2.G2.&G2."
  216. 2120 S$(4,23)="@42D2.&D2.E2.&E2."
  217. 2130 S$(5,23)=S$(5,19)
  218. 2140 S$(6,23)=S$(6,19)
  219. 2150 S$(7,23)=S$(7,19)
  220. 2160 S$(8,23)=S$(8,19)
  221. 2170 S$(0,24)="    B->CD<GAB-EFGGAB-B->CDDEFFGAAB->C(<AB->D-)3B-AGAGFGFEFEDEDC"
  222. 2180 S$(1,24)="E>C<B->CD<GAB-EFGGAB-B->CDDEFFGAAB->C(<AB->D-)3B-AGAGFGFEFEDE"
  223. 2190 S$(2,24)="A2.&A2.A2.A2."
  224. 2200 S$(3,24)="F2.&F2.E2.E2."
  225. 2210 S$(4,24)="D2.&D2.D2.D-2."
  226. 2220 S$(5,24)="<(B-8B-B->B-<B-)4(A8AA>A<A)3 B->B-<B- >C>C<C"
  227. 2230 S$(6,24)=S$(6,23)
  228. 2240 S$(7,24)=S$(7,23)
  229. 2250 S$(8,24)=S$(8,23)
  230. 2260 S$(0,25)="@46O4V11U-900F&U-700F&U-500F&U-300F&U-100F&U0FE4.<A4.>D4.EDE4&E4.C<B->C&C8.C<C>E<E>>C8<"
  231. 2270 S$(1,25)="DC"
  232. 2280 S$(2,25)="@47V10O3 A4.G4.D4.F4.G2.E2."
  233. 2290 S$(3,25)="@41O4(D8.A8AR8.AGF)  (C8.G8GR8.GFE)"
  234. 2300 S$(4,25)="@41O4(<A8.>F8FR8.FED)(<G8.>E8ER8.EDC)"
  235. 2310 S$(5,25)="(D8DD>D<D)4(C8CC>C<C)4"
  236. 2320 S$(6,25)="(CRRRRCCRRRRR)4"
  237. 2330 S$(7,25)=S$(7,24)
  238. 2340 S$(8,25)=S$(8,24)
  239. 2350 S$(0,26)="B-8.B-8.>D8.<B-8.>C8.C8.E8.C8.DEFGFEDEFGFED4.&D4.<"
  240. 2360 S$(1,26)="@47V10O4 F8.F8.B-8.F8.G8.G8.>C8.<G8. A2.&A2."
  241. 2370 S$(2,26)="      O4 D8.D8.F8.D8.E8.E8.G8.E8.    F2.&F2."
  242. 2380 S$(3,26)=" D4.&D8.DEF    E4.&E8.EFGF2.&F4.%RFA]>DF]A>D<%C[[<"
  243. 2390 S$(4,26)="<B-4.&B-8.B->CDC4.&C8.CDED2.&D4.%LDF]A>D]FA%C[[<"
  244. 2400 S$(5,26)="<(B-8B-B->B-<B-)>(C8CC>C<C)(D8DD>D<D)[[ D8.]]D8.]]D8.]]D8.[[[["
  245. 2410 S$(6,26)=S$(6,25)
  246. 2420 S$(7,26)="((R8.C8.)3) C<@9%L8EE>@2%L5C<<@9%L3GG%R3DRD>>@2%L5C@9<<<%R8BB>>>@2%L5"
  247. 2430 S$(8,26)=S$(8,25)
  248. 2440 S$(5,27)="@49O2]]]D8DRF&U3000FU0C8.D-8.D8DRF&U3000FU0C8.<A8.(B-8B->RD&U1900DU0C8CRE&U2100E<U0)2[[[>"
  249. 2450 S$(6,27)="(CRCRCCCRRRRR)(CRCRRC)4"
  250. 2460 S$(7,27)="((R8.C8.)3)R8.C8.R8.CCC"
  251. 2470 S$(8,27)="(BBBRBB BRBR@5E@4B)(BRBB@5E@4B)4"
  252. 2480 S$(9,27)="<(A4.A8.A8.)R2.R4.A8.A8.>"
  253. 2490 FOR LOOP=5 TO 9
  254. 2500  S$(LOOP,28)=S$(LOOP,27)
  255. 2510  S$(LOOP,29)=S$(LOOP,28)
  256. 2520 NEXT
  257. 2530 S$(3,29)="(A8ARRRG8.G8.)(F8FRRRG8GRRR)"
  258. 2540 S$(4,29)="(F8FRRRE8.E8.)(D8DRRRE8ERRR)"
  259. 2550 S$( 3,30)="A8ARRRG8.G8.A4.GGGGGG"
  260. 2560 S$( 4,30)="F8FRRRE8.E8.F4.EEEEEE"
  261. 2570 S$( 5,30)="]]]D8DRF&U3000FU0C8.D-8.D4.<@45AAAAAA>[[["
  262. 2580 S$( 6,30)="CRCRCCCRRRRR CRRCRRCRRCRR"
  263. 2590 S$( 7,30)="RRRC8.RRRCCCC<@9%L8EE>@2%L5C<<@9%L3GG%R3DRD>>@2%L5C@9<<<%R8BB>>>@2%L5"
  264. 2600 S$( 8,30)="BBBRBBBRBBBB BRRBRRBRRBRR"
  265. 2610 S$( 9,30)="<A4.A8.A8.A4.R4.>"
  266. 2620 S$(10,30)="R2.R4.%R8A%CA%R4A%L4A%CA%L8A"
  267. 2630 S$(11,30)=S$(10,30)
  268. 2640 S$( 0,31)="O2 D4.&D8.A8.>DCD&D4.C8.EDE&E4.&E8.C2.<B-2&B->D8.FEF&F2&FC4.EDE&E8.AGA&A2&A"
  269. 2650 S$( 1,31)="O3V11  A4.&A8.>D8.F2&FD8.C2.E2&EEDCD4.<B-4.>F4.D4. E4.D4.D-2."
  270. 2660 S$( 2,31)="O3V 8 EA4.&A8.>D8.F2&FD8.C2.E2&EEDCD4.<B-4.>F4.D4&DE4.E4.E2."
  271. 2670 S$( 5,31)="L16(D8D>D<DD)4(C8C>C<CC)4<(B-8B->B-<B-B-)4>(C8C>C<CC)2L16<(A>A<A)B>B<B>D->D-<D-"
  272. 2680 S$( 6,31)="L16((CRRRRCCRRRRR)4)2"
  273. 2690 S$( 7,31)="((R8.C8.)4)3(R8.C8.)2C8.C@9<<GECRC>>@2EEE"
  274. 2700 S$( 8,31)="L16((BRBBRBBRBBRB)4)"
  275. 2710 S$( 9,31)="[[[[[[[[((G8.]]]G8.[[[)4)4]]]]]]]]"
  276. 2720 S$(10,31)="R2.R2.R2.R2.R2.R2.R2.%CA8.A8.B8.>D-8.<"
  277. 2730 S$(11,31)=S$(10,31)
  278. 2740 S$( 0,32)="O3D4.AGA&A8.>DCD8&D2<C4.GFG&G8.>C<B->C8&C2<B-4.>DFD&D8.FB-F8&F2C4.EDE&E8. U-1500A&U-1400A&U-1300A&U-1200A&U-1100A&U-1000A&U-900A&U-800A&U-600A&U-450A&U-250A&U-100A&U0"
  279. 2750 S$( 1,32)="O2 A4.>D4.A4.>FEF&F8.<<G4.>C4.G4.>EDE&E8.<<F4.B-4.>F4.B->D<B-&B-8.<G4.>C4.V10E2."
  280. 2760 S$( 2,32)="O2RA4.>D4.A4.>FEF&F8.<<G4.>C4.G4.>EDE&E8.<<F4.B-4.>F4.B->D<B-&B-8.<G4.>C4.V10E2&E8.&"
  281. 2770 S$( 3,32)="@47V 9O4R2.R2.R2.R2.R2.R2.R2.G4.&G8.A8."
  282. 2780 S$( 4,32)="@47V 9O4R2.R2.R2.R2.R2.R2.R2.D-2."
  283. 2790 S$( 5,32)="(D8D>D<DD)4(C8C>C<CC)4<(B-8B->B-<B-B-)4>(C8C>C<CC)<(A8AA>A<A)>"
  284. 2800 S$( 6,32)=S$(6,31)
  285. 2810 S$( 7,32)="((R8.C8.)4)4"
  286. 2820 S$( 8,32)=S$(8,31)
  287. 2830 S$( 9,32)=S$(9,31)
  288. 2840 S$(10,32)="L8.RR<R2.RDRRR2.RCR<RR2.RRR>C>"
  289. 2850 S$(11,32)=S$(10,32)
  290. 2860 S$(0,33)="A2.&A2.&A2.&A2.&A2.&A2.&A2.&A2."
  291. 2870 S$(1,33)="   O4A2.&A2.G2.&G2.F2.&F2.G2.&G2."
  292. 2880 S$(2,33)="V10O4F2.&F2.E2.&E2.D2.&D2.E2.&E2."
  293. 2890 S$(3,33)="   O4D2.&D2.C2.&C2.<B-2.&B-2.>C2.&C2."
  294. 2900 S$(4,33)="   O4R2.R2.(A2.&A2.)3"
  295. 2910 S$(5,33)="(D8D>D<DD)4(C8C>C<CC)4<(B-8B->B-<B-B-)4>(C8C>C<CC)<(A8AA>A<A)>"
  296. 2920 S$(6,33)=S$(6,32)
  297. 2930 S$(7,33)=S$(7,32)
  298. 2940 S$(8,33)=S$(8,32)
  299. 2950 S$(9,33)=S$(9,32)
  300. 2960 S$( 0,34)=" R2.R2.R2.R2.R2.R2.R2.<<A4.B8.>D8."
  301. 2970 S$( 1,34)="   A2.&A2.G2.&G2.F2.&F2.G2.D-8.D-8.D8.E8."
  302. 2980 S$( 2,34)="   F2.&F2.E2.&E2.D2.&D2.E2.<A8.A8.B8.>D-8."
  303. 2990 S$( 3,34)="   D2.&D2.C2.&C2.<B-2.&B-2.>C2.<E8.E8.F8.G8.>"
  304. 3000 S$( 4,34)="   R2.R2.(A2.&A2.)3"
  305. 3010 S$( 5,34)=S$(5,33)
  306. 3020 S$( 6,34)="((CRRRRCCRRRRR)3)2(CRR)3CRC RCCRCCCRCRCC"
  307. 3030 S$( 7,34)="((R8.C8.)4)3[RRR@9<E<BGCRC>>@2CCCC<@9%L8EE>@2%L5C<<@9%L3GG%R3DRD>>@2%L5C@9<<<%R8BB>>>@2%L5]"
  308. 3040 S$( 8,34)="((BRBBRB)4)3(BRBBRB)2(B%R8B%CBB%L8B%CB)"
  309. 3050 S$( 9,34)=S$(9,33)
  310. 3060 S$(10,34)="R2.R2.R2.R2.R2.R2.R2.A8.A8.B8.>D-8.<"
  311. 3070 S$(11,34)=S$(10,34)
  312. 3080 S$( 0,35)="C>CD<D>"
  313. 3090 S$( 1,35)="]E>EF<F["
  314. 3100 S$( 2,35)="]C>CD<D["
  315. 3110 S$( 3,35)="]G>GA<A["
  316. 3120 S$( 4,35)="CCD<D>"
  317. 3130 S$( 5,35)="O2C>CD<D"
  318. 3140 S$( 6,35)="CCC"
  319. 3150 S$( 7,35)="CCC"
  320. 3160 S$( 8,35)="BBB"
  321. 3170 S$( 9,35)="]]]CCC[[["
  322. 3180 S$(10,35)="C16>C16D16R16"
  323. 3190 S$(11,35)=S$(10,35)
  324. 3200 GOTO *PLAY
  325. 5000 *めさーじゅ表示
  326. 5010 '------------------------------------------------------ONSHOKU SETTEI
  327. 5020 RESTORE 5050:DIM SON(23):SAD=VARPTR(SON(0)):FOR I=1 TO 1
  328. 5030 FOR ADD=8 TO 33:READ DT$:POKE SAD+ADD,VAL("&H"+DT$):NEXT ADD
  329. 5040 VOICE 9,SON:NEXT I
  330. 5050 DATA 3E,7F,30,73,0,0,0,0,1F,1F,1F,1F
  331. 5060 DATA 0,0,1C,1C,0,0,12,13,0,0,9,F,3C,C0
  332. 5070 '--------------------------------------------------------SYOKI SETTEI
  333. 5080 SCREEN @2:PALETTE:PASTEL:COLOR 0,[128,128,128]:CLS
  334. 5090 BGM 0:DEFINT A-Z:DEFSTR M,R
  335. 5100 T$="T180@106O2V9U0%CL64":PLAY T$+"@9",T$,T$+"U+3000"
  336. 5110 PALETTE 1,[8,8,8]:LINE (0,0)-(639,479),PSET,%1,BF
  337. 5120 '---------------------------------------------KEISEN:MEISAI:KYOKU MEI
  338. 5130 LINE (50,50)-(400,50),PASTEL,7:Y=100
  339. 5140 FOR I=0 TO 14:LINE (35,Y)-(605,Y),PASTEL,7:Y=Y+25:NEXT
  340. 5150 Y=5:FOR I=1 TO 3:READ M:SYMBOL (405,Y),M,1,1,2:Y=Y+19:NEXT
  341. 5160 READ M:SYMBOL (50,53),M,1,1,,,,8
  342. 5170 SYMBOL (103,455),"<             :         >-♪-<             :         >",1,1,7
  343. 5180 X=48:READ M:A=KLEN(M,0):FOR I=1 TO A:MOJ=KMID$(M,I,1)
  344. 5190 SYMBOL (X,15),MOJ,1,2,7,,,13
  345. 5200 IF MOJ="　" THEN PLAY "R":X=X+16:NEXT ELSE PLAY "C16":X=X+16:NEXT
  346. 5210 '-------------------------------------------------------------MESSAGE
  347. 5220 X=60:I=0:Y=83:R="BB-AA-GG-FEE-DD-C>G-GA-AB-B<":RESTORE *MESSAGE
  348. 5230 READ M
  349. 5240 SUU=KLEN(M,0)
  350. 5250 '
  351. 5260 *MAIN
  352. 5270 I=I+1:MOJ = KMID$(M,I,1)
  353. 5280 IF I=SUU+1 THEN I=0:GOTO 5230
  354. 5290 IF MOJ="@" GOTO *SYORI
  355. 5300 IF X=587 THEN X=60:Y=Y+25:PLAY ,R,R
  356. 5310 SYMBOL (X,Y),MOJ,1,1,C,,,9
  357. 5320 IF MOJ="？" OR MOJ="！" OR MOJ="・" THEN PLAY "<<C2>>":GOTO 5350
  358. 5330 IF MOJ="　" OR MOJ="、" THEN PLAY "<<C8>>":GOTO 5350
  359. 5340 IF MOJ="。" THEN PLAY "<<C4>>" ELSE PLAY "C64"
  360. 5350 X=X+17:GOTO *MAIN
  361. 5360 '
  362. 5370 *SYORI
  363. 5380 I=I+1:MOJ = KMID$(M,I,1)
  364. 5390 IF MOJ="E" GOTO *OWARI
  365. 5400 IF MOJ="R" THEN X=60:Y=Y+25:PLAY ,R,R:GOTO *MAIN
  366. 5410 C=VAL(MOJ$):GOTO *MAIN
  367. 5420 '---------------------------------------------------------MEISAI DATA
  368. 5430 DATA "* SKE.ﾒｻ-ｼﾞｭｼｽﾃﾑ  V2.1","* For 386  V1.1L20 / L21",""
  369. 5440 DATA "作・編曲／ＳＫＥＭＡＲＯ
  370. 5450 '--------------------------------------------------------MESSAGE DATA
  371. 5460 DATA "　　　  無 題":'DAIMEI 21 MOJI
  372. 5470 *MESSAGE
  373. 5480 DATA "@7　この曲、「ＫＮＩＧＨＴ」のオープニングで使われるはずが、「諸々の事情」でお蔵入りー（１と２に別れちゃったんだよね）。ここで発表する事、ライオスさんに言ってないから、怒られるかもしんない。"
  374. 5490 DATA "（いいでしょ？　PICK UPの仲間だけ、ね。）@R"
  375. 5500 DATA "　いちょー、（「一応」。学生言葉。）タイトル～祈り～オープニング、となっております。@R@R"
  376. 5510 DATA "　話しは変わって、「１９９１ガバうけ大賞」金賞は、・・・「かんべんしてちょーよんぴる（うわ～！すけまろ病が～）」でした。うそですけど。その時、私は、あまり突然に襲ってきたくだらなさに「・・・ほほう。」といってしまいました。まいりました。@R"
  377. 5520 DATA "　しかし、欲を言うなら「かんべんしてちょーっとーふりむいてぇー、見ただけのぉ異ー邦ーじーんー♪」（ちゃんと歌わなくては、不可）としてもらいたいところです。ちっともうそですけどぉ。"
  378. 5530 DATA "　また、面白いお返事を待ってますね（本当）。誰とは言いませんけど。@E"
  379. 5540 '---------------------------------------------------------OWARI SHORI
  380. 5550 *OWARI
  381. 5560 SYMBOL (128,455),"PLAY START   ANY KEY",1,1,2
  382. 5570 SYMBOL (368,455),"PLAY STOP   PF1",1,1,%1:A$=INPUT$(1)
  383. 5580 SYMBOL (128,455),"PLAY START   ANY KEY",1,1,%1
  384. 5590 SYMBOL (368,455),"PLAY STOP   PF1",1,1,2:PLAY ,R,R
  385. 5600 BGM 1
  386. 5610 RETURN
  387. 65000 BGM 0:PLAY"R64":BGM 1
  388. 65010 CLOSE #1 :KEY(1) OFF:PLAY OFF:RUN"MENU.BAS"
  389.